home *** CD-ROM | disk | FTP | other *** search
/ Windows 6-Pak - Disc 4 / Windows 6-Pak (InfoMagic) (Disc 4) (1999).ISO / Text-Chat-Addins / C-Script.exe / Sysfiles / Aliases / startup.mrc < prev    next >
Encoding:
Text File  |  1998-05-14  |  5.7 KB  |  96 lines
  1. ;C-Script v5.0 ⌐ 1998 C-Team. All rights reserved.
  2. ;Configure at your own risk
  3. ;One time initialization
  4.  
  5. startcs {
  6.   wincheck %otminit -p +f %otminit $center(385,205) 385 205 comic sans ms 12
  7.   drawrect -f %otminit 2 1 0 0 620 17
  8.   drawtext -o %otminit 0 arial 14 3 1 C-Script
  9.   drawx 327 2 15 14 %otminit nxx | drawx 343 2 15 14 %otminit mxx | drawx 361 2 15 14 %otminit Xx
  10.   drawpic %otminit 0 18 sysfiles\start.bmp
  11.   drawtext %otminit 2 arial 14 82 82 Thank you for choosing C-Script. Totally revamped and
  12.   drawtext %otminit 2 arial 14 82 95 updated C-Script has been put back among the top scripts
  13.   drawtext %otminit 2 arial 14 82 108 for mIRC today. Press "F1" for help at any time.
  14.   drawtext %otminit 2 arial 14 82 130 Be sure to visit us at "/server irc.C-Script.com 7000" and let
  15.   drawtext %otminit 2 arial 14 82 143 us know how we are doing or just to chat.
  16.   drawtext %otminit 5 arial 14 82 178 Loading, please wait...
  17.   .timer 1 15 start2
  18. }
  19. start2 {
  20.   drawpic %otminit 0 18 sysfiles\start.bmp
  21.   drawtext %otminit 2 arial 14 82 82 If at any time you would like to change these usermodes,
  22.   drawtext %otminit 2 arial 14 82 95 simply type "/usermodes". If you do not know what to put
  23.   drawtext %otminit 2 arial 14 82 108 in the box, press "OK" without entering anything in the box.
  24.   drawtext %otminit 5 arial 14 82 178 Setting up UserModes...
  25.   window +f @focus 999 999 100 100 | set %usrmodes $?="Select Default Usermode(s): (Default: +iw)"
  26.   if (%usrmodes == $null) { set %usrmodes +iw }
  27.   elseif ($chr(43) != $left(%usrmodes,1)) { set %usrmodes $chr(43) $+ %usrmodes }
  28.   .timer 1 1 start2.5
  29. }
  30. start2.5 {
  31.   drawpic %otminit 0 18 sysfiles\start.bmp
  32.   drawtext %otminit 2 arial 14 82 82 Entering your ICQ UIN in the box below will allow
  33.   drawtext %otminit 2 arial 14 82 95 people to contact you through ICQ when you set away.
  34.   drawtext %otminit 2 arial 14 82 108 If you don't have ICQ, or don't want to give this info
  35.   drawtext %otminit 2 arial 14 82 121 out, don't enter anything in the box and press "OK".
  36.   drawtext %otminit 5 arial 14 82 178 Setting up away system...
  37.   window -a @focus | set %awayuin $?="Enter your UIN (press 'OK' for none)"
  38.   if (%awayuin == $null) { set %awayuin N/A }
  39.   .timer 1 1 start3
  40. }
  41. start3 {
  42.   drawpic %otminit 0 18 sysfiles\start.bmp
  43.   drawtext %otminit 2 arial 14 82 82 The security system will allow C-Script to be locked to
  44.   drawtext %otminit 2 arial 14 82 95 anyone that does not know your password. If you do not
  45.   drawtext %otminit 2 arial 14 82 108 want this feature enabled, press "OK" without entering
  46.   drawtext %otminit 2 arial 14 82 121 anything in the box.
  47.   drawtext %otminit 5 arial 14 82 178 Setting up security system...
  48.   window -a @focus | set %csmspass $?="Enter a password (press 'OK' for none)"
  49.   if (%csmspass != $null) { echo $clr(info2) -s *** Your C-Script Password is: %csmspass Please write it down and keep it in a safe place! }
  50.   .timer 1 1 start4
  51. }
  52. start4 {
  53.   window -c @focus
  54.   drawpic %otminit 0 18 sysfiles\start.bmp
  55.   drawtext %otminit 2 arial 14 82 82 Double-click on "Windows_3.x" if you have Windows 3.1 or
  56.   drawtext %otminit 2 arial 14 82 95 higher. Double-click on "Windows_95/98/NT" if you have
  57.   drawtext %otminit 2 arial 14 82 108 Windows 95, 98, or NT.
  58.   drawtext %otminit 5 arial 14 82 178 Setting up Install...
  59.   wincheck @C-Script -l +b @C-ScriptáSetup $center(-50,-50) 200 50 @C-ScriptáSetup comic sans ms 12
  60.   aline @C-ScriptáSetup Select Windows Type:
  61.   aline @C-ScriptáSetup Windows_3.x
  62.   aline @C-ScriptáSetup Windows_95/98/NT
  63.   .timerDAOH 0 1 if $window(@C-ScriptáSetup) != $null { window -a @C-ScriptáSetup } | else { .timerDAOH off }
  64. }
  65. start5 {
  66.   drawpic %otminit 0 18 sysfiles\start.bmp
  67.   drawtext %otminit 5 arial 14 82 178 Setting up web browser...
  68.   if (%winver != Windows_95/98/NT) {
  69.     drawtext %otminit 2 arial 14 82 82 Find your web browser in the dialog box.
  70.     window +f @focus 999 999 100 100 | set %browserdir $dir="** Find your web browser **" c:\
  71.   }
  72.   .timer 1 1 startend
  73. }
  74. startend {
  75.   window -c @focus | drawpic %otminit 0 18 sysfiles\start.bmp
  76.   drawtext %otminit 2 arial 14 82 82 Initialization sucessfully completed.
  77.   drawtext %otminit 5 arial 14 82 178 Closing. Please wait...
  78.   set %loadvar 1
  79.   if (%winver == Windows_3.x) { win3inst }
  80.   else {
  81.     if ($exists(c:\windows\desktop\) == $true && $exists(c:\windows\desktop\c-scri~1.lnk) != $true) { .copy c-scri~1.lnk c:\windows\desktop\ }
  82.     elseif ($exists(d:\windows\desktop\) == $true && $exists(d:\windows\desktop\c-scri~1.lnk) != $true) { .copy c-scri~1.lnk d:\windows\desktop\ }
  83.     if ($exists(c:\windows\applic~1\micros~1\intern~1\quickl~1\) == $true && $exists(c:\windows\applic~1\micros~1\intern~1\quickl~1\c-scri~1.lnk) != $true) { .copy c-scri~1.lnk c:\windows\applic~1\micros~1\intern~1\quickl~1\ }
  84.     elseif ($exists(d:\windows\applic~1\micros~1\intern~1\quickl~1\) == $true && $exists(d:\windows\applic~1\micros~1\intern~1\quickl~1\c-scri~1.lnk) != $true) { .copy c-scri~1.lnk d:\windows\applic~1\micros~1\intern~1\quickl~1\ }
  85.     run CS32.grp
  86.   }
  87.   set %tmp.exe $dde $ddename exename ""
  88.   set %mircexe $nopath(%tmp.exe)
  89.   window @t 999 999 100 100 | set %x $window(@t).x | set %x.max $calc(%x + 100) | set %x [ $calc(%x / 2 + 50) ] | set %y $window(@t).y | set %y.max $calc(%y + 100) | set %y [ $calc(%y / 2 + 50) ] | window -c @t
  90.   .timer 1 5 window -c %otminit
  91.   .timer 1 6 echo -a  $+ $clr(info) $+ *** You may now log on to IRC (Press Alt+E to setup your IRC session)
  92.   if ($findfile($mircdiraddons\,*.adn,1) != $null && $findfile($mircdiraddons\,*.adn,1) != $mircdiraddons\sample\sample.adn) { echo -a  $+ $clr(info) $+ *** C-Script addons were found Type /addons for more info }
  93.   set %setcntdwn 0 | update
  94.   .timer 1 7 .unload -a startup.mrc
  95. }
  96.